home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / proot.s < prev    next >
Text File  |  1992-08-18  |  24KB  |  1,548 lines
  1. ( PROOT ported by Bill Wickes from the HP-71 Math ROM to HP 48 )
  2. ( unthreaded/disassembled manually by Joe Horn )
  3. ASSEMBLE
  4.     NIBASC \HPHP48-E\
  5. RPL
  6. ::
  7.  CK1NoBlame CK&DISPATCH1 FOUR
  8.  ::
  9.   DUP
  10.   ASSEMBLE
  11.     CON(5)    #358F
  12.     CON(5)    #3F95
  13. RPL
  14.   EQ  case  SETTYPEERR  DUP  ARSIZE  DUPTWO  #<  casedrop
  15.   ASSEMBLE
  16.     CON(5)    #37DE2
  17. RPL
  18.   DUP#1-  ONE{}N  C%0  MAKEARRY  UNROT  # 2A  #*  # 287  #+
  19.   ASSEMBLE
  20.     CON(5)    #3742D
  21. RPL
  22.   CODE
  23.     HS=0    3
  24.     D1=D1+    10
  25.     D=D+1    A
  26.     D=D+1    A
  27.     GOSBVL    =SAVPTR
  28.     D1=D1-    10
  29.     A=DAT1    A
  30.     D0=A
  31.     D0=D0+    10
  32.     AD0EX
  33.     R4=A
  34.     D1=D1+    10
  35.     A=DAT1    A
  36.     D0=A
  37.     D0=D0+    15
  38.     D0=D0+    5
  39.     A=DAT0    A
  40.     R1=A
  41.     D0=D0+    5
  42.     AD0EX
  43.     R3=A
  44.     D1=D1-    5
  45.     A=DAT1    A
  46.     D0=A
  47.     D0=D0+    15
  48.     A=DAT0    A
  49.     A=A-1    A
  50.     ?A=0    A
  51.     GOYES    P10    +00005
  52.     D0=D0+    5
  53. P10    D0=D0+    10
  54.     AD0EX
  55.     R2=A
  56.     A=R4
  57.     D1=A
  58.     A=R1
  59.     DAT1=A    A
  60.     D1=D1+    5
  61.     DAT1=A    A
  62.     D1=D1+    7
  63.     A=R3
  64.     DAT1=A    A
  65.     AD1EX
  66.     LCHEX    00266
  67.     A=A+C    A
  68.     D1=A
  69.     LCHEX    90000
  70.     CR2EX
  71.     D0=C
  72. P20    A=DAT0    W
  73.     D0=D0+    16
  74.     SETDEC
  75.     GOSBVL    =SPLITA
  76.     GOSUBL    P1120    +00D87
  77.     C=R2
  78.     P=    4
  79.     ?C=A    P
  80.     GOYES    P30    +0000A
  81.     ?C#0    P
  82.     GOYES    P40    +0000A
  83.     GONC    P50    +0000A
  84. P30    ?C>=A    A
  85.     GOYES    P50    +00005
  86. P40    R2=A
  87. P50    GOSBVL    #0CA88
  88.     A=R1
  89.     A=A-1    A
  90.     R1=A
  91.     GONC    P20    -00040
  92.     P=    0
  93.     C=0    S
  94.     GOSUBL    P690    +00B4C
  95.     C=0    S
  96.     GOSUBL    P730    +00BA1
  97.     A=R2
  98.     LCHEX    00480
  99.     P=    4
  100.     ?A#0    P
  101.     GOYES    P60    +00007
  102.     ?C<=A    A
  103.     GOYES    P110    +00061
  104. P60    SETDEC
  105.     C=C-A    A
  106.     GOTO    P80    +0000C
  107. P70    P=    0
  108.     LCHEX    99988
  109. P80    R0=C
  110.     GOSUBL    P530    +00A2A
  111.     C=DAT1    A
  112.     R1=C
  113.     D1=A
  114. P90    GOSUBL    P1160    +00D22
  115.     ?B=0    W
  116.     GOYES    P100    +00015
  117.     SETDEC
  118.     C=R0
  119.     A=A+C    A
  120.     GOSUBL    P760    +00B86
  121.     GOSUBL    P1110    +00CEA
  122. P100    GOSBVL    #0CA88
  123.     C=R1
  124.     C=C-1    A
  125.     R1=C
  126.     GONC    P90    -0002E
  127.     C=0    S
  128.     C=C+1    S
  129.     GOSUBL    P690    +00ACE
  130. P110    C=0    S
  131.     C=C+1    S
  132.     GOSUBL    P730    +00B20
  133.     C=R4
  134.     D1=C
  135.     C=DAT1    A
  136.     C=C-1    A
  137.     C=C-1    A
  138.     GOC    P120    +0002B
  139.     C=C-1    A
  140.     GONC    P130    +00055
  141.     GOSUBL    P1700    +010B5
  142.     GOSUBL    P1800    +012F4
  143.     GOSUBL    P680    +00A34
  144.     GOSUBL    P1410    +00E4C
  145.     GOSUBL    P900    +00BC2
  146.     GOLONG    P680    +00A26
  147. P120    GOSUBL    P530    +0099A
  148.     D1=A
  149.     GOSUBL    P1180    +00CA6
  150.     GOSUBL    P1160    +00C92
  151.     SETDEC
  152.     A=-A-1    S
  153.     GOSUBL    P650    +009ED
  154.     C=0    W
  155.     R0=C
  156.     R1=C
  157.     GOLONG    P680    +009F7
  158. P130    A=DAT1    A
  159.     GOSUBL    P1920    +01458
  160.     GOSBVL    =SPLITA
  161.     GOSUBL    P1370    +00DCF
  162.     GOSUBL    P1700    +0104C
  163.     GOSUBL    P1780    +01178
  164.     GOSUBL    P1160    +00C50
  165.     GOSUBL    P540    +00958
  166.     C=R4
  167.     D1=C
  168.     C=DAT1    A
  169.     GOSUBL    P1580    +00EF3
  170.     GOSUBL    P1680    +00FE3
  171.     C=0    A
  172.     GOSUBL    P1580    +00EE5
  173.     SETDEC
  174.     GOSBVL    =RCCD0
  175.     GOSBVL    =DIVF
  176.     A=0    S
  177.     GOSBVL    #2B698
  178.     GOSBVL    =RCCD2
  179.     GOSBVL    =DIVF
  180.     GOSBVL    #2B6AA
  181.     GOSUBL    P1790    +0120C
  182.     GOSUBL    P1150    +00BEC
  183.     C=0    W
  184.     D=0    W
  185.     P=    14
  186.     D=D+1    P
  187.     D=D+1    M
  188.     GOSUBL    P620    +0092D
  189.     GOSUBL    P1110    +00BB8
  190.     GOSUBL    P1280    +00C79
  191.     D0=C
  192. P140    GOSUBL    P530    +008C2
  193.     C=DAT1    A
  194.     C=C-1    A
  195.     D1=A
  196.     A=0    W
  197.     B=0    W
  198.     GOSUBL    P1130    +00BA2
  199.     GOSUBL    P1160    +00BAF
  200.     A=0    S
  201.     D0=D0-    16
  202.     D0=D0-    5
  203.     GOSUBL    P1130    +00B8D
  204. P150    R3=C
  205.     GOSUBL    P1170    +00B9E
  206.     SETDEC
  207.     GOSUBL    P630    +008E5
  208.     GOSUBL    P1060    +00B33
  209.     GOSUBL    P1190    +00B98
  210.     GOSUBL    P600    +008B2
  211.     GOSUBL    P1140    +00B6A
  212.     GOSUBL    P1170    +00B78
  213.     GOSUBL    P1060    +00B15
  214.     GOSUBL    P630    +008BB
  215.     GOSUBL    P1180    +00B6D
  216.     C=0    S
  217.     AR3EX
  218.     ?A#0    A
  219.     GOYES    P160    +00005
  220.     C=-C-1    S
  221. P160    AR3EX
  222.     GOSUBL    P600    +0087D
  223.     GOSUBL    P1130    +00B2F
  224.     GOSBVL    #0CA88
  225.     C=R3
  226.     C=C-1    A
  227.     GONC    P150    -0006B
  228.     SETDEC
  229.     GOSUBL    P1190    +00B40
  230.     GOSUBL    P650    +0088B
  231.     A=-A-1    S
  232.     GOSUBL    P1190    +00B31
  233.     GOSBVL    =STCD0
  234.     GOSUBL    P600    +00844
  235.     GOSUBL    P1130    +00AF6
  236.     D0=D0-    16
  237.     D0=D0-    5
  238.     GOSUBL    P570    +00820
  239.     GOSUBL    P790    +00997
  240.     GOC    P170    +00006
  241.     GOTO    P140    -000DC
  242. P170    GOSUBL    P550    +007FF
  243.     C=0    W
  244.     C=C-1    A
  245.     D=0    W
  246.     D=D-1    M
  247.     GOSUBL    P620    +00828
  248.     GOSUBL    P1380    +00C4B
  249.     GOSUBL    P990    +00A37
  250.     GOSUBL    P1160    +00AC7
  251.     SETDEC
  252.     GOSUBL    P630    +00815
  253.     D=0    W
  254.     C=0    W
  255.     P=    11
  256.     LCHEX    1445
  257.     CDEX    W
  258.     GOSUBL    P620    +007F7
  259.     GOSUBL    P1790    +010B6
  260.     GOSUBL    P1150    +00A96
  261.     GOSUBL    P1310    +00BAB
  262.     A=0    W
  263.     B=0    W
  264.     GOSUBL    P1120    +00A70
  265.     GOSUBL    P1120    +00A6A
  266.     C=0    A
  267.     GOSUBL    P1580    +00D34
  268.     A=0    S
  269.     GOSUBL    P1340    +00BBF
  270.     C=R4
  271.     D1=C
  272.     D1=D1+    10
  273.     C=0    B
  274.     DAT1=C    B
  275. P180    GOSUBL    P1460    +00C7B
  276.     GOSUBL    P1680    +00E06
  277.     GOSUBL    P1010    +009CD
  278.     GOSUBL    P1180    +00A5A
  279.     GOSBVL    =STCD2
  280.     GOSUBL    P790    +008DF
  281.     GOC    P190    +00006
  282.     GOTO    P420    +00546
  283. P190    GOSUB    P550    +00749
  284.     GOSUB    P670    +007A4
  285.     GOSUBL    P1680    +00DD8
  286.     GOSUB    P580    +00750
  287.     GOSUBL    P790    +008C0
  288.     GOC    P210    +0004A
  289.     C=R4
  290.     D1=C
  291.     D1=D1+    10
  292.     C=DAT1    B
  293.     ?C#0    B
  294.     GOYES    P200    +00019
  295.     GOSUBL    P1530    +00C86
  296.     GOSUB    P510    +006E2
  297.     GOSUB    P550    +00713
  298.     GOSUBL    P790    +00898
  299.     GONC    P210    +00022
  300. P200    GOSUB    P550    +00706
  301.     GOSUBL    P1350    +00B42
  302.     SETDEC
  303.     GOSUB    P580    +0070F
  304.     GOSUB    P650    +00747
  305.     GOSUBL    P980    +00939
  306.     GOSUBL    P930    +00901
  307. P210    C=R4
  308.     D1=C
  309.     D1=D1+    10
  310.     C=0    S
  311.     C=C+1    S
  312.     DAT1=C    S
  313.     P=    0
  314.     LCHEX    0A4
  315.     GOSUBL    P1570    +00C57
  316.     D0=C
  317.     GOSUBL    P1000    +00921
  318.     D1=D1+    16
  319.     D1=D1+    5
  320.     LCHEX    6
  321. P220    GOSUBL    P1160    +0099D
  322.     GOSUBL    P1140    +0098A
  323.     C=C-1    P
  324.     GONC    P220    -00010
  325. P230    GOSUBL    P1430    +00B66
  326.     GOSUB    P510    +00667
  327.     GOSUBL    P1160    +00981
  328.     GOSUB    P540    +0068B
  329.     GOSUBL    P890    +00888
  330.     SETDEC
  331.     GOSUB    P600    +006A6
  332.     GOSUBL    P820    +0082E
  333.     GOSUB    P580    +00691
  334.     GOSUB    P600    +00698
  335.     GOSUBL    P820    +00820
  336.     GOSUBL    P1020    +008DE
  337.     GOSUBL    P860    +00842
  338. P240    GOSUBL    P1450    +00B5D
  339.     SETDEC
  340.     C=0    W
  341.     C=C-1    A
  342.     D=0    W
  343.     P=    14
  344.     D=D+1    P
  345.     D=D+1    P
  346.     GOSUB    P620    +00684
  347.     GOSUBL    P1030    +008BC
  348.     GOSUBL    P1180    +00937
  349.     C=0    S
  350.     GOSUBL    P790    +007C0
  351.     GOC    P250    +00006
  352.     GOTO    P310    +00144
  353. P250    GOSUBL    P990    +0087D
  354.     GOSUBL    P1160    +0090D
  355.     GOSUBL    P1680    +00CB5
  356.     A=0    W
  357.     B=0    W
  358.     GOSUBL    P1120    +008E1
  359.     GOSUBL    P1270    +00991
  360.     D0=C
  361.     GOSUB    P530    +005E7
  362.     C=DAT1    A
  363.     C=C-1    A
  364.     R2=C
  365.     C=C+1    A
  366.     D1=A
  367.     GOSUBL    P1160    +008DB
  368.     CD1EX
  369.     R3=C
  370.     CD1EX
  371.     GOSUBL    P1130    +008B9
  372.     GOSUBL    P1610    +00BAE
  373.     GOTO    P290    +0005D
  374. P260    GOSUBL    P1170    +008C3
  375.     SETDEC
  376.     GOSUB    P610    +00601
  377.     GOSUBL    P1070    +00860
  378.     GOSUBL    P1190    +008BF
  379.     GOSUB    P600    +005DB
  380.     GOSUB    P760    +00718
  381.     GOC    P270    +0002F
  382.     GOSUBL    P1140    +0088C
  383.     GOSUBL    P1070    +00843
  384.     GOSUBL    P1170    +00894
  385.     GOSUB    P610    +005D4
  386.     D1=D1-    16
  387.     D1=D1-    5
  388.     GOSUBL    P1180    +0088B
  389.     GOSUB    P600    +005AE
  390.     GOSUB    P760    +006EB
  391.     GONC    P280    +00006
  392. P270    GOTO    P70    -004D2
  393. P280    GOSUBL    P1130    +00855
  394. P290    GOSUBL    P1150    +0085C
  395.     SETDEC
  396.     GOSUB    P610    +005A7
  397.     AR3EX
  398.     AD1EX
  399.     GOSUBL    P1180    +0085E
  400.     AD1EX
  401.     AR3EX
  402.     GOSUB    P600    +0057B
  403.     GOSUB    P760    +006B8
  404.     GOC    P270    -00031
  405.     GOSUBL    P1120    +0081F
  406.     GOSBVL    #0CA88
  407.     C=R2
  408.     C=C-1    A
  409.     R2=C
  410.     GOC    P300    +00006
  411.     GOTO    P260    -0009C
  412. P300    C=0    W
  413.     R0=C
  414.     R1=C
  415.     GOSUB    P540    +00524
  416.     GOSUBL    P1170    +00817
  417.     GOSUB    P1070    +007BC
  418.     GOSUBL    P1190    +0081B
  419.     D0=D0-    16
  420.     D0=D0-    5
  421.     GOSUB    P800    +006B3
  422.     GOSUBL    P850    +006DC
  423.     GOSUB    P800    +006A9
  424.     GOSUB    P560    +0050A
  425.     GOSUB    P800    +006A1
  426.     A=0    S
  427.     GOSUBL    P1340    +0092D
  428.     ST=0    0
  429.     GOLONG    P1720    +00BF7
  430. P310    GOSUB    P990    +0073E
  431.     GOSUB    P890    +006E1
  432.     GOSUB    P540    +004DA
  433.     GOSUBL    P1910    +00F97
  434.     GOSUBL    P1680    +00B6E
  435.     GOSUB    P560    +004D8
  436.     GOSUB    P660    +00525
  437.     GOSUBL    P1290    +0086F
  438.     D0=C
  439.     GOSUB    P870    +006A0
  440.     GOSUB    P530    +004A0
  441.     C=DAT1    A
  442.     D1=A
  443.     A=C    A
  444.     C=C-1    A
  445.     R2=C
  446.     C=C-1    A
  447.     RSTK=C
  448.     C=A    A
  449.     GOSUB    P1160    +00790
  450.     AD1EX
  451.     R3=A
  452.     AD1EX
  453.     GOSUBL    P1610    +00A69
  454.     GOSUB    P1050    +00721
  455.     C=0    W
  456.     DAT0=C    W
  457.     D0=D0+    16
  458.     DAT0=C    W
  459.     D0=D0+    16
  460.     DAT0=C    W
  461.     D0=D0+    10
  462.     GOSUB    P1140    +00754
  463.     DAT0=C    W
  464.     D0=D0+    16
  465.     DAT0=C    A
  466.     D0=D0+    5
  467.     GOSUB    P1090    +00717
  468. P320    A=R2
  469.     ?A#0    A
  470.     GOYES    P330    +00020
  471.     CD1EX
  472.     R0=C
  473.     GOSUBL    P1470    +00964
  474.     C=R0
  475.     D1=C
  476.     GOSUB    P1070    +006E2
  477.     GOSUB    P1140    +00721
  478.     GOTO    P350    +00020
  479. P330    C=RSTK
  480.     RSTK=C
  481.     ?C>A    A
  482.     GOYES    P340    +00010
  483.     GOSUB    P1070    +006CD
  484.     D1=D1-    16
  485.     D1=D1-    5
  486.     GOTO    P380    +000AF
  487. P340    D0=D0-    16
  488.     D0=D0-    5
  489. P350    GOSUB    P1190    +0071E
  490.     GOSUB    P1040    +0069D
  491.     GOSUB    P880    +00602
  492.     GOSUB    P1130    +006EA
  493.     SETDEC
  494.     GOSUB    P820    +005BA
  495.     GOSUB    P620    +00442
  496.     GOSUB    P820    +005B2
  497.     GOSUB    P1090    +006B2
  498.     GOSUB    P630    +0043D
  499.     A=-A-1    S
  500.     GOSUB    P590    +00411
  501.     A=-A-1    S
  502.     GOSUB    P1070    +00689
  503.     GOSUB    P1190    +006EA
  504.     GOSUB    P600    +00406
  505.     GOSUB    P1050    +00671
  506.     GOSUB    P760    +0053F
  507.     GONC    P360    +00006
  508.     GOTO    P70    -0067E
  509. P360    GOSUB    P1140    +006B1
  510.     D0=D0+    16
  511.     D0=D0+    5
  512.     GOSUB    P880    +005B5
  513.     GOSUB    P1130    +0069D
  514.     GOSUB    P820    +0056F
  515.     D0=D0+    16
  516.     D0=D0+    5
  517.     GOSUB    P630    +003F8
  518.     GOSUB    P820    +00561
  519.     GOSUB    P1070    +0064A
  520.     GOSUB    P630    +003EC
  521.     A=-A-1    S
  522.     GOSUB    P590    +003C0
  523.     A=-A-1    S
  524.     GOSUB    P990    +005F2
  525.     GOSUB    P1180    +00692
  526.     GOSUB    P600    +003B5
  527.     GOSUB    P1060    +00626
  528.     GOSUB    P760    +004EE
  529.     GONC    P370    +00006
  530.     GOTO    P70    -006CF
  531. P370    GOSUB    P1140    +00660
  532.     D0=D0+    16
  533.     D0=D0+    5
  534. P380    GOSUB    P1160    +00663
  535.     SETDEC
  536.     GOSUB    P630    +003B3
  537.     AR3EX
  538.     AD1EX
  539.     GOSUB    P1180    +00661
  540.     AD1EX
  541.     AR3EX
  542.     GOSUB    P600    +0037E
  543.     GOSUB    P1190    +0065A
  544.     GOSBVL    =STCD0
  545.     C=RSTK
  546.     RSTK=C
  547.     D=C    A
  548.     C=R2
  549.     ?D<C    A
  550.     GOYES    P390    +0001F
  551.     GOSUB    P820    +004EF
  552.     GOSUB    P990    +00592
  553.     GOSUB    P1180    +00632
  554.     D1=D1+    16
  555.     D1=D1+    5
  556.     GOSUB    P620    +00369
  557.     A=-A-1    S
  558.     GOSUB    P590    +00344
  559. P390    GOSUB    P760    +00485
  560.     GONC    P400    +00008
  561.     GOLONG    P70    -00739
  562. P400    GOSUB    P1120    +005E8
  563.     GOSBVL    #0CA88
  564.     C=R2
  565.     C=C-1    A
  566.     R2=C
  567.     GOC    P410    +00006
  568.     GOTO    P320    -00161
  569. P410    C=RSTK
  570.     GOSUB    P1070    +00596
  571.     GOSUB    P1140    +005D5
  572.     GOSUB    P990    +00548
  573.     GOSUB    P1160    +005DA
  574.     GOSUBL    P1680    +00982
  575.     GOSUBL    P1480    +00801
  576.     GOSUB    P540    +002D8
  577.     GOSUB    P1390    +00749
  578.     GOSUB    P870    +004B7
  579.     SETDEC
  580.     GOSUB    P610    +00307
  581.     GOSUB    P1140    +005AB
  582.     GOSUB    P560    +002D0
  583.     GOSUB    P640    +0030E
  584.     GOSUB    P540    +002BA
  585.     GOSUB    P660    +00315
  586.     GOSUB    P660    +00311
  587.     A=-A-1    S
  588.     GOSUB    P1040    +00535
  589.     CD0EX
  590.     D0=C
  591.     D1=C
  592.     GOSUB    P930    +004BC
  593.     GOSUB    P1160    +0058C
  594.     GOSUB    P1190    +0059D
  595.     GOSUB    P600    +002B9
  596.     GOSUB    P1130    +0056D
  597.     GOSUB    P1160    +0057C
  598.     C=0    W
  599.     D=0    W
  600.     P=    14
  601.     LCHEX    3
  602.     CDEX    P
  603.     GOSUB    P620    +002B9
  604.     GOSUB    P1190    +0057B
  605.     GOSUB    P600    +00297
  606.     GOSUB    P1240    +005C9
  607.     GOSUB    P620    +002A9
  608.     CD1EX
  609.     CD0EX
  610.     CD1EX
  611.     GOSUB    P1070    +004FD
  612.     GOSUB    P1130    +00536
  613.     GOSUB    P560    +00261
  614.     GOSUB    P660    +002AE
  615.     A=-A-1    S
  616.     D0=D0+    16
  617.     D0=D0+    5
  618.     GOSUB    P630    +0028A
  619.     GOSUB    P1180    +0053E
  620.     GOSUB    P600    +00261
  621.     GOSUB    P1070    +004D8
  622.     GOSUB    P1190    +00539
  623.     GOSUB    P1130    +0050D
  624.     GOSUB    P990    +00486
  625.     GOSUB    P1160    +00518
  626.     GOSUB    P620    +00263
  627.     GOSUB    P660    +0027D
  628.     GOSUB    P1140    +004FF
  629.     GOSUB    P880    +00409
  630.     GOSUBL    P1860    +00CAB
  631.     GOSUB    P1340    +0064A
  632.     ST=1    0
  633.     GOLONG    P1720    +00914
  634. P420    C=R4
  635.     D1=C
  636.     D1=D1+    10
  637.     C=DAT1    S
  638.     ?C#0    S
  639.     GOYES    P430    +00006
  640.     GOTO    P460    +000AB
  641. P430    SETDEC
  642.     A=0    W
  643.     A=A-1    A
  644.     B=0    W
  645.     P=    14
  646.     LCHEX    5
  647.     B=C    P
  648.     P=    0
  649.     LCHEX    0CE
  650.     GOSUB    P920    +003EA
  651.     D1=D1+    16
  652.     D1=D1+    5
  653.     GOSUB    P1160    +004B8
  654.     GOSUB    P610    +001FF
  655.     GOSUB    P1110    +00490
  656.     GOSUB    P540    +001BA
  657.     D1=D1+    16
  658.     D1=D1+    5
  659.     GOSUB    P890    +003B3
  660.     GOSUBL    P1860    +00C45
  661.     GOSUBL    P1680    +00844
  662.     GOSUB    P580    +001BC
  663.     GOSUB    P600    +001C3
  664.     GOSUB    P570    +001AD
  665.     GOSUB    P790    +00326
  666.     ?B=0    WP
  667.     GOYES    P440    +00006
  668.     GOTO    P230    -00511
  669. P440    GOSUB    P1030    +00406
  670.     GOSUB    P1160    +00475
  671.     GOSUBL    P1680    +0081D
  672.     GOSUB    P1030    +003F8
  673.     GOSUB    P1160    +00467
  674.     GOSUB    P640    +001C1
  675.     GOSUB    P540    +0016D
  676.     GOSUB    P1400    +005E9
  677.     SETDEC
  678.     GOSUB    P580    +0017F
  679.     GOSUB    P620    +001A0
  680.     GOSUB    P570    +00170
  681.     GOSUB    P520    +00134
  682.     GOSUB    P790    +002E5
  683.     GOC    P450    +00006
  684.     GOTO    P480    +000C2
  685. P450    GOVLNG    #10F40
  686. P460    D1=D1+    1
  687.     C=DAT1    S
  688.     ?C#0    S
  689.     GOYES    P470    +00055
  690.     C=C+1    S
  691.     DAT1=C    S
  692.     GOSUB    P1520    +00695
  693.     SETDEC
  694.     GOSUB    P640    +00178
  695.     GOSUB    P510    +000F6
  696.     GOSUB    P1160    +00412
  697.     GOSUB    P540    +0011C
  698.     GOSUB    P650    +00170
  699.     GOSUB    P1300    +00510
  700.     GOSUB    P1020    +00389
  701.     GOSUB    P890    +0030F
  702.     GOSUB    P980    +00358
  703.     GOSUB    P860    +002E7
  704.     GOSUB    P1020    +00379
  705.     GOSUB    P1180    +003FC
  706.     SETDEC
  707.     GOSUB    P560    +00104
  708.     GOSUB    P650    +0014A
  709.     GOSUB    P960    +00332
  710.     GOSUB    P930    +00308
  711.     GOTO    P240    -00576
  712. P470    GOSUB    P1470    +005FC
  713.     GOSUB    P900    +002E5
  714.     GOSUB    P830    +00296
  715.     GOSUB    P1010    +00343
  716.     GOSUB    P1160    +003C4
  717.     C=0    W
  718.     P=    12
  719.     LCHEX    125
  720.     D=C    W
  721.     C=0    M
  722.     C=-C-1    S
  723.     GOSUB    P520    +00098
  724.     GOSUB    P650    +0010F
  725.     GOSUB    P1680    +00753
  726.     A=0    W
  727.     B=0    W
  728.     P=    14
  729.     B=B+1    P
  730.     GOSUB    P820    +00259
  731.     GOSUB    P1650    +006CA
  732.     GOSUB    P1320    +004AE
  733.     GOSUB    P870    +0027F
  734.     GOSBVL    #0CA88
  735.     GOTO    P240    -005CF
  736. P480    GOSUB    P1470    +005A3
  737.     GOSUB    P900    +0028C
  738.     C=R1
  739.     ?C=0    W
  740.     GOYES    P490    +00019
  741.     C=R0
  742.     SETDEC
  743.     C=-C-1    S
  744.     R0=C
  745.     GOSUB    P680    +000DB
  746.     GOSUB    P1470    +00584
  747.     GOSUB    P900    +0026D
  748. P490    GOSUB    P680    +000CF
  749.     C=C-1    A
  750.     R0=C
  751.     GOSUB    P1590    +0060B
  752.     D0=C
  753.     C=R0
  754.     GOSUB    P1630    +00639
  755.     C=R0
  756. P500    GOSUB    P1160    +0033A
  757.     GOSUB    P1140    +00329
  758.     RSTK=C
  759.     GOSBVL    #0CA88
  760.     C=RSTK
  761.     C=C-1    A
  762.     GONC    P500    -00016
  763.     GOLONG    P110    -009C8
  764. P510    C=B    W
  765.     D=C    W
  766.     C=A    W
  767.     RTN
  768. P520    BCEX    W
  769.     CDEX    W
  770.     BCEX    W
  771.     ACEX    W
  772.     RTN
  773. P530    SETHEX
  774.     A=R4
  775.     D1=A
  776.     P=    0
  777.     LCHEX    00272
  778.     A=A+C    A
  779.     RTN
  780. P540    GOVLNG    =STAB2
  781. P550    GOVLNG    =RCAB0
  782. P560    GOVLNG    =RCAB2
  783. P570    GOVLNG    =RCCD0
  784. P580    GOVLNG    =RCCD2
  785. P590    GOSUB    P570    -00012
  786. P600    CD0EX
  787.     RSTK=C
  788.     CD0EX
  789.     GOSBVL    =RADDF
  790.     C=RSTK
  791.     D0=C
  792.     RTN
  793. P610    GOSUB    P570    -0002C
  794. P620    GOVLNG    =MULTF
  795. P630    GOSUB    P1190    +002BB
  796.     GOTO    P620    -0000C
  797. P640    GOSUB    P510    -00082
  798.     GOTO    P620    -00014
  799. P650    GOVLNG    =DIVF
  800. P660    GOVLNG    #2BBD9
  801. P670    GOVLNG    #2BBBC
  802. P680    SETDEC
  803.     GOSBVL    =PACK
  804.     GOSUB    P820    +0013B
  805.     GOSBVL    =PACK
  806.     AR0EX
  807.     C=R4
  808.     D1=C
  809.     D1=D1+    12
  810.     C=DAT1    A
  811.     D0=C
  812.     DAT0=A    W
  813.     D0=D0+    16
  814.     A=R0
  815.     DAT0=A    W
  816.     D0=D0+    16
  817.     GOSBVL    #0CA88
  818.     CD0EX
  819.     DAT1=C    A
  820.     D1=D1-    12
  821.     C=DAT1    A
  822.     C=C-1    A
  823.     DAT1=C    A
  824.     ?C#0    A
  825.     RTNYES
  826.     P=    0
  827.     GOSBVL    =GETPTR
  828.     A=DAT0    A
  829.     D0=D0+    5
  830.     PC=(A)
  831. P690    A=R4
  832.     A=C    S
  833.     R4=A
  834.     D1=A
  835.     C=DAT1    A
  836. P700    R0=C
  837.     GOSUB    P1580    +004C0
  838.     ?B#0    W
  839.     RTNYES
  840.     CD1EX
  841.     D0=C
  842.     C=R0
  843.     GOSUB    P1100    +001C8
  844.     C=D    A
  845.     GOSBVL    =MOVEDOWN
  846.     A=0    W
  847.     C=R4
  848.     ?C=0    S
  849.     GOYES    P710    +0000D
  850.     A=A+1    M
  851.     P=    14
  852.     B=B+1    P
  853.     GONC    P720    +0000D
  854. P710    SETDEC
  855.     GOSBVL    #2A141
  856.     SETHEX
  857. P720    GOSUB    P1680    +00576
  858.     GOSUB    P680    -000C1
  859.     GOTO    P700    -0004C
  860. P730    A=R4
  861.     A=C    S
  862.     R4=A
  863. P740    C=0    A
  864.     GOSUB    P1580    +00469
  865.     ?B#0    W
  866.     RTNYES
  867.     A=0    W
  868.     C=R4
  869.     ?C=0    S
  870.     GOYES    P750    +0000E
  871.     P=    14
  872.     B=B+1    P
  873.     SETDEC
  874.     A=A-1    A
  875.     A=0    X
  876. P750    GOSUB    P1680    +0053F
  877.     GOSUB    P680    -000F8
  878.     GOC    P740    -0002B
  879. P760    SETDEC
  880.     C=A    A
  881.     C=C+C    A
  882.     P=    0
  883.     LCHEX    05000
  884.     GOC    P770    +00009
  885.     ?C<=A    A
  886.     RTNYES
  887.     RTN
  888. P770    C=-C    A
  889.     ?C>A    A
  890.     GOYES    P780    +00004
  891.     RTN
  892. P780    A=0    W
  893.     B=0    W
  894.     RTNCC
  895. P790    SETDEC
  896.     C=-C-1    S
  897.     GOSUB    P600    -00174
  898.     P=    14
  899.     ?B=0    WP
  900.     RTNYES
  901.     ?A=0    S
  902.     RTNYES
  903.     RTN
  904. P800    GOSUB    P1140    +00138
  905. P810    GOSUB    P820    +00004
  906.     GOSUB    P1140    +00130
  907. P820    GOVLNG    =EXAB0
  908. P830    GOSUB    P1210    +00175
  909.     GOTO    P810    -00014
  910. P840    GOSUB    P1240    +00195
  911.     GOSUB    P1130    +00113
  912.     GOSUB    P1170    +00129
  913.     GOSUB    P820    -0001F
  914.     GOSUB    P1130    +00107
  915. P850    A=C    W
  916.     C=D    W
  917.     B=C    W
  918.     RTN
  919. P860    GOSUB    P1120    +000F1
  920. P870    GOSUB    P820    -00036
  921.     GOSUB    P1120    +000E9
  922.     GOTO    P820    -0003B
  923. P880    GOSUB    P1170    +00102
  924.     GOSUB    P1680    +004A5
  925.     GOSUB    P1170    +000FA
  926.     GOTO    P820    -0004B
  927. P890    GOSUB    P1160    +000EB
  928. P900    GOSUB    P1680    +00495
  929.     GOSUB    P1160    +000E3
  930.     GOTO    P820    -0005B
  931. P910    GOSUB    P950    +0001D
  932.     GONC    P930    +00006
  933. P920    GOSUB    P1570    +00376
  934. P930    SETDEC
  935.     GOSUB    P1680    +0047C
  936.     GOSUB    P940    +00000
  937. P940    GOSUB    P1160    +000C6
  938.     GOSUB    P610    -001F3
  939.     GOTO    P1110    +000A1
  940. P950    A=0    W
  941.     B=0    W
  942.     P=    14
  943.     B=B+1    P
  944.     B=B+1    P
  945.     RTN
  946. P960    D1=D1-    16
  947.     D1=D1-    5
  948. P970    D1=D1-    16
  949.     D1=D1-    5
  950. P980    D1=D1-    16
  951.     D1=D1-    5
  952.     D1=D1-    16
  953.     D1=D1-    5
  954. P990    D1=D1-    16
  955.     D1=D1-    16
  956.     D1=D1-    10
  957.     RTN
  958. P1000    D1=D1+    16
  959.     D1=D1+    5
  960. P1010    D1=D1+    16
  961.     D1=D1+    5
  962.     D1=D1+    16
  963.     D1=D1+    5
  964. P1020    D1=D1+    16
  965.     D1=D1+    5
  966. P1030    D1=D1+    16
  967.     D1=D1+    16
  968.     D1=D1+    10
  969.     RTN
  970. P1040    D0=D0-    16
  971.     D0=D0-    5
  972.     D0=D0-    16
  973.     D0=D0-    5
  974. P1050    D0=D0-    16
  975.     D0=D0-    5
  976. P1060    D0=D0-    16
  977.     D0=D0-    5
  978. P1070    D0=D0-    16
  979.     D0=D0-    16
  980.     D0=D0-    10
  981.     RTN
  982. P1080    D0=D0+    16
  983.     D0=D0+    5
  984.     D0=D0+    16
  985.     D0=D0+    5
  986. P1090    D0=D0+    16
  987.     D0=D0+    16
  988.     D0=D0+    10
  989.     RTN
  990. P1100    D=C    A
  991.     DSL    A
  992.     D=D+C    A
  993.     C=C+C    A
  994.     D=D+C    A
  995.     D=D+C    A
  996.     RTN
  997. P1110    D1=D1-    16
  998.     D1=D1-    5
  999. P1120    GOVLNG    #2C066
  1000. P1130    D0=D0-    16
  1001.     D0=D0-    5
  1002. P1140    GOVLNG    =PUTAB0
  1003. P1150    D1=D1-    16
  1004.     D1=D1-    5
  1005. P1160    GOVLNG    =GETAB1
  1006. P1170    GOVLNG    =GETAB0
  1007. P1180    GOVLNG    #2C017
  1008. P1190    GOVLNG    =GETCD0
  1009.     P=    0
  1010.     LCHEX    00209
  1011.     GOTO    P1220    +00026
  1012.     P=    0
  1013.     LCHEX    0021E
  1014.     GOTO    P1220    +00019
  1015. P1200    P=    0
  1016.     LCHEX    0025D
  1017.     GOTO    P1220    +0000C
  1018. P1210    P=    0
  1019.     LCHEX    001F4
  1020. P1220    D=C    A
  1021.     C=R4
  1022.     SETHEX
  1023.     C=C+D    A
  1024.     SETDEC
  1025.     D0=C
  1026.     GOTO    P1140    -00068
  1027. P1230    P=    0
  1028.     LCHEX    00209
  1029.     GOTO    P1250    +0000C
  1030. P1240    P=    0
  1031.     LCHEX    001F4
  1032. P1250    D=C    A
  1033.     C=R4
  1034.     SETHEX
  1035.     C=C+D    A
  1036.     SETDEC
  1037.     D0=C
  1038.     GOTO    P1190    -0006E
  1039. P1260    P=    0
  1040.     LCHEX    011
  1041.     GOTO    P1540    +001FD
  1042.     P=    0
  1043.     LCHEX    026
  1044.     GOTO    P1540    +001F2
  1045. P1270    P=    0
  1046.     LCHEX    03B
  1047.     GOTO    P1540    +001E7
  1048. P1280    P=    0
  1049.     LCHEX    050
  1050.     GOTO    P1540    +001DC
  1051.     P=    0
  1052.     LCHEX    065
  1053.     GOTO    P1540    +001D1
  1054. P1290    P=    0
  1055.     LCHEX    07A
  1056.     GOTO    P1540    +001C6
  1057.     P=    0
  1058.     LCHEX    08F
  1059.     GOTO    P1540    +001BB
  1060.     P=    0
  1061.     LCHEX    0A4
  1062.     GOTO    P1540    +001B0
  1063.     P=    0
  1064.     LCHEX    0B9
  1065.     GOTO    P1540    +001A5
  1066.     P=    0
  1067.     LCHEX    0CE
  1068.     GOTO    P1540    +0019A
  1069.     P=    0
  1070.     LCHEX    0E3
  1071.     GOTO    P1540    +0018F
  1072.     P=    0
  1073.     LCHEX    0F8
  1074.     GOTO    P1540    +00184
  1075. P1300    P=    0
  1076.     LCHEX    10D
  1077.     GOTO    P1540    +00179
  1078. P1310    P=    0
  1079.     LCHEX    122
  1080.     GOTO    P1540    +0016E
  1081. P1320    P=    0
  1082.     LCHEX    137
  1083.     GOTO    P1540    +00163
  1084.     P=    0
  1085.     LCHEX    14C
  1086.     GOTO    P1540    +00158
  1087. P1330    P=    0
  1088.     LCHEX    161
  1089.     GOTO    P1540    +0014D
  1090.     P=    0
  1091.     LCHEX    176
  1092.     GOTO    P1540    +00142
  1093. P1340    P=    0
  1094.     LCHEX    18B
  1095.     GOTO    P1540    +00137
  1096. P1350    P=    0
  1097.     LCHEX    1A0
  1098.     GOTO    P1540    +0012C
  1099. P1360    P=    0
  1100.     LCHEX    1B5
  1101.     GOTO    P1540    +00121
  1102. P1370    P=    0
  1103.     LCHEX    1CA
  1104.     GOTO    P1540    +00116
  1105. P1380    P=    0
  1106.     LCHEX    1DF
  1107.     GOTO    P1540    +0010B
  1108. P1390    P=    0
  1109.     LCHEX    1F4
  1110.     GOTO    P1540    +00100
  1111. P1400    P=    0
  1112.     LCHEX    011
  1113.     GOTO    P1550    +000FD
  1114. P1410    P=    0
  1115.     LCHEX    026
  1116.     GOTO    P1550    +000F2
  1117.     P=    0
  1118.     LCHEX    03B
  1119.     GOTO    P1550    +000E7
  1120. P1420    P=    0
  1121.     LCHEX    050
  1122.     GOTO    P1550    +000DC
  1123.     P=    0
  1124.     LCHEX    065
  1125.     GOTO    P1550    +000D1
  1126.     P=    0
  1127.     LCHEX    07A
  1128.     GOTO    P1550    +000C6
  1129.     P=    0
  1130.     LCHEX    08F
  1131.     GOTO    P1550    +000BB
  1132. P1430    P=    0
  1133.     LCHEX    0A4
  1134.     GOTO    P1550    +000B0
  1135.     P=    0
  1136.     LCHEX    0B9
  1137.     GOTO    P1550    +000A5
  1138.     P=    0
  1139.     LCHEX    0CE
  1140.     GOTO    P1550    +0009A
  1141.     P=    0
  1142.     LCHEX    0E3
  1143.     GOTO    P1550    +0008F
  1144. P1440    P=    0
  1145.     LCHEX    0F8
  1146.     GOTO    P1550    +00084
  1147. P1450    P=    0
  1148.     LCHEX    10D
  1149.     GOTO    P1550    +00079
  1150. P1460    P=    0
  1151.     LCHEX    122
  1152.     GOTO    P1550    +0006E
  1153. P1470    P=    0
  1154.     LCHEX    137
  1155.     GOTO    P1550    +00063
  1156. P1480    P=    0
  1157.     LCHEX    14C
  1158.     GOTO    P1550    +00058
  1159. P1490    P=    0
  1160.     LCHEX    161
  1161.     GOTO    P1550    +0004D
  1162.     P=    0
  1163.     LCHEX    176
  1164.     GOTO    P1550    +00042
  1165. P1500    P=    0
  1166.     LCHEX    18B
  1167.     GOTO    P1550    +00037
  1168.     P=    0
  1169.     LCHEX    1A0
  1170.     GOTO    P1550    +0002C
  1171. P1510    P=    0
  1172.     LCHEX    1B5
  1173.     GOTO    P1550    +00021
  1174. P1520    P=    0
  1175.     LCHEX    1CA
  1176.     GOTO    P1550    +00016
  1177. P1530    P=    0
  1178.     LCHEX    1DF
  1179.     GOTO    P1550    +0000B
  1180. P1540    GOSUB    P1570    +00013
  1181.     GOTO    P1120    -002AA
  1182. P1550    GOSUB    P1570    +0000B
  1183.     GOTO    P1160    -00298
  1184. P1560    P=    0
  1185.     LCHEX    026
  1186. P1570    SETHEX
  1187.     P=    3
  1188.     LCHEX    00
  1189.     P=    0
  1190.     D=C    A
  1191.     C=R4
  1192.     C=C+D    A
  1193.     D1=C
  1194.     RTN
  1195. P1580    GOSUB    P1590    +00004
  1196.     GOTO    P1160    -002BD
  1197. P1590    SETHEX
  1198.     D=C    A
  1199.     C=R4
  1200.     D1=C
  1201.     C=DAT1    A
  1202.     C=C-D    A
  1203.     GOSUB    P1100    -00301
  1204.     P=    0
  1205.     LCHEX    00272
  1206. P1600    D=D+C    A
  1207.     CD1EX
  1208.     C=C+D    A
  1209.     D1=C
  1210.     RTN
  1211. P1610    GOSUB    P1630    +0000C
  1212.     GOTO    P1120    -00307
  1213. P1620    GOSUB    P1630    +00004
  1214.     GOTO    P1160    -002F5
  1215. P1630    SETHEX
  1216.     D=C    A
  1217.     C=R4
  1218.     D1=C
  1219.     C=DAT1    A
  1220.     D=C-D    A
  1221.     D1=D1+    5
  1222.     C=DAT1    A
  1223.     C=C+D    A
  1224.     GOSUB    P1100    -00341
  1225.     P=    0
  1226.     LCHEX    00282
  1227.     GOTO    P1600    -00041
  1228. P1640    GOSUB    P1240    -002B9
  1229.     GOSUB    P600    -005F3
  1230.     GOSUB    P820    -00469
  1231.     GOSUB    P1190    -0031B
  1232.     GOSUB    P600    -005FF
  1233.     GOTO    P820    -00472
  1234. P1650    GOSUB    P1200    -00306
  1235. P1660    GOSUB    P1230    -002E2
  1236.     GOSUB    P620    -005F5
  1237.     GOSUB    P540    -0063A
  1238.     GOSUB    P550    -00637
  1239.     GOSUB    P1070    -003A0
  1240.     GOSUB    P630    -005FE
  1241.     GOSUB    P580    -0062E
  1242.     GOSUB    P600    -00627
  1243.     GOSUB    P820    -0049D
  1244.     A=-A-1    S
  1245.     GOSUB    P630    -00611
  1246.     GOSUB    P540    -0065D
  1247.     GOSUB    P1070    -003BF
  1248.     GOSUB    P1170    -0036C
  1249.     GOSUB    P1080    -003BC
  1250.     GOSUB    P630    -00625
  1251.     GOSUB    P580    -00655
  1252.     GOTO    P600    -0064B
  1253. P1670    GOSUB    P1200    -00351
  1254.     GOSUB    P820    -004C8
  1255.     A=-A-1    S
  1256.     GOSUB    P540    -00684
  1257.     GOSUB    P1910    +0043B
  1258.     P=    14
  1259.     ?B#0    WP
  1260.     GOYES    P1690    +0001A
  1261.     B=0    S
  1262.     B=B+1    P
  1263.     C=0    W
  1264.     P=    3
  1265.     LCHEX    5
  1266.     A=C    W
  1267. P1680    GOVLNG    =STAB0
  1268. P1690    GOSUB    P1070    -00409
  1269.     GOSUB    P1140    -003CA
  1270.     GOSUB    P560    -006A5
  1271.     GOSUB    P1680    -00017
  1272.     GOSUB    P1170    -003C2
  1273.     GOSUB    P1660    -00091
  1274.     GOSUB    P1070    -00421
  1275.     GOSUB    P1190    -003C0
  1276.     GOSBVL    =STCD2
  1277.     GOSUB    P650    -0067A
  1278.     GOSUB    P820    -00521
  1279.     GOSUB    P580    -006BE
  1280.     GOSUB    P650    -00686
  1281.     GOTO    P820    -0052A
  1282. P1700    GOSUB    P1560    -00159
  1283.     D0=C
  1284.     C=0    A
  1285.     LCHEX    2
  1286.     GOSUB    P1590    -00140
  1287.     C=0    W
  1288.     R0=C
  1289.     R1=C
  1290.     LCHEX    2
  1291. P1710    GOSUB    P1160    -00410
  1292.     GOSUB    P800    -0055D
  1293.     C=C-1    A
  1294.     GONC    P1710    -0000B
  1295.     RTN
  1296. P1720    GOSUB    P970    -004C7
  1297.     GOSUB    P890    -00512
  1298.     SETDEC
  1299.     GOSUB    P1860    +00380
  1300.     GOSUB    P1680    -0007F
  1301.     C=R4
  1302.     D1=C
  1303.     C=DAT1    A
  1304.     SETHEX
  1305.     C=C-1    A
  1306.     R2=C
  1307.     C=C+1    A
  1308.     GOSUB    P1620    -00153
  1309.     A=0    S
  1310. P1730    SETDEC
  1311.     GOSUB    P610    -00701
  1312.     GOSUB    P1180    -00442
  1313.     C=0    S
  1314.     GOSUB    P600    -00722
  1315.     GOSBVL    #0CA88
  1316.     C=R2
  1317.     C=C-1    A
  1318.     R2=C
  1319.     GONC    P1730    -00021
  1320.     SETDEC
  1321.     ?ST=0    0
  1322.     GOYES    P1740    +00006
  1323.     GOSUB    P660    -00707
  1324. P1740    P=    0
  1325.     LCHEX    00013
  1326.     A=A-C    A
  1327.     GOSUB    P1260    -003FD
  1328.     GOSUBL    P540    -0077B
  1329.     GOSUB    P1500    -00239
  1330.     GOSUBL    P510    -007B3
  1331.     GOSBVL    =EXAB2
  1332.     GOSUB    P790    -005FE
  1333.     GONC    P1750    +00008
  1334.     GOLONG    P480    -00822
  1335. P1750    C=R4
  1336.     D1=C
  1337.     D1=D1+    10
  1338.     C=DAT1    S
  1339.     ?C=0    S
  1340.     GOYES    P1760    +0001F
  1341.     GOSUB    P1440    -002B6
  1342.     GOSUBL    P580    -00799
  1343.     GOSUBL    P520    -007DE
  1344.     GOSUB    P790    -0062D
  1345.     GONC    P1760    +00008
  1346.     GOLONG    P420    -009C7
  1347. P1760    GOSUB    P1780    +00048
  1348.     GOSUB    P990    -00574
  1349.     GOSUB    P1160    -004E2
  1350.     GOSUBL    P540    -007DA
  1351.     GOSUB    P960    -0059A
  1352.     GOSUB    P890    -005DF
  1353.     GOSUB    P1860    +002B5
  1354.     GOSUBL    P510    -0081A
  1355.     GOSBVL    =EXAB2
  1356.     GOSUBL    P600    -007D2
  1357.     GOSUBL    P580    -007E3
  1358.     GOSUB    P790    -00671
  1359.     ?B#0    WP
  1360.     GOYES    P1770    +00008
  1361.     GOLONG    P480    -00897
  1362. P1770    GOLONG    P180    -00F82
  1363. P1780    GOSUB    P1420    -00377
  1364.     GOSUB    P900    -00615
  1365.     GOSUB    P830    -00664
  1366.     GOSUB    P890    -00621
  1367.     GOSUB    P1670    -001B3
  1368.     GOSUB    P1330    -00404
  1369.     GOSUB    P870    -00649
  1370.     GOSUB    P1020    -005BB
  1371.     GOSUB    P1180    -00538
  1372.     GOSBVL    =STCD2
  1373.     SETDEC
  1374.     GOSUB    P950    -00611
  1375.     GOSUBL    P650    -007F3
  1376.     A=-A-1    S
  1377.     GOSBVL    =RADD1
  1378.     GOSUB    P960    -00615
  1379.     GOSUB    P930    -0063F
  1380.     GOSUBL    P560    -00855
  1381.     GOSBVL    =RSUB1
  1382.     P=    0
  1383.     LCHEX    050
  1384.     GOSUB    P920    -0065B
  1385.     GOSUBL    P560    -0086D
  1386.     GOSUBL    P610    -00844
  1387.     GOSUBL    P670    -00821
  1388.     GOSUB    P930    -0066D
  1389.     GOSUB    P1800    +00098
  1390.     GOSUB    P830    -006D7
  1391.     GOSUB    P1490    -00367
  1392.     GOSUB    P900    -00694
  1393.     GOSUB    P1650    -00275
  1394.     GOSUBL    P540    -008A5
  1395.     GOSUB    P1520    -00342
  1396.     SETDEC
  1397.     GOSBVL    =RSUB1
  1398.     GOSUBL    P580    -0089C
  1399.     GOSUBL    P600    -00897
  1400.     GOSUB    P1670    -0024D
  1401.     GOSUB    P960    -00682
  1402.     GOSUB    P860    -006E7
  1403.     GOSUB    P1860    +001CD
  1404.     D1=D1+    16
  1405.     D1=D1+    5
  1406.     GOSUB    P1120    -00600
  1407.     GOSUBL    P540    -008DE
  1408.     GOSUB    P1420    -00441
  1409.     GOSUB    P900    -006DF
  1410.     SETDEC
  1411.     GOSUB    P1860    +001AF
  1412.     GOSUB    P1360    -0049C
  1413.     GOSUB    P1160    -00602
  1414.     SETDEC
  1415.     GOSUB    P1900    +001C2
  1416.     GOSUBL    P580    -008E4
  1417.     GOSUBL    P620    -008C5
  1418. P1790    GOSUBL    P1680    -0026C
  1419.     GOSUB    P1510    -003B4
  1420.     GOSUBL    P570    -00901
  1421.     GOSUB    P790    -00788
  1422.     RTNNC
  1423.     GOSUBL    P550    -0091C
  1424.     GOTO    P1110    -00652
  1425. P1800    GOSUB    P1560    -0039E
  1426.     GOSUB    P910    -0071C
  1427.     GOSUB    P1030    -006B4
  1428.     GOSUB    P910    -00724
  1429.     GOSUB    P960    -006F7
  1430.     GOSUBL    P890    -0073E
  1431.     GOSUBL    P830    -0078B
  1432.     GOSUB    P1030    -006CC
  1433.     GOSUB    P890    -0074C
  1434.     GOSUB    P1650    -00329
  1435.     GOSUB    P1820    +000C4
  1436.     GOSUB    P1050    -006C5
  1437.     GOSUBL    P800    -007B8
  1438.     GOSUB    P980    -00715
  1439.     GOSUB    P890    -00766
  1440.     GOSUBL    P830    -007B3
  1441.     GOSUB    P1650    -00349
  1442.     GOSUBL    P830    -007BD
  1443.     GOSUBL    P880    -0078C
  1444.     GOSUB    P1640    -00371
  1445.     GOSUB    P1830    +000A2
  1446.     D0=D0+    16
  1447.     D0=D0+    5
  1448.     GOSUBL    P800    -007EA
  1449.     GOSUB    P990    -0073B
  1450.     GOSUBL    P890    -0079A
  1451.     GOSUB    P1820    +0007A
  1452.     GOSUBL    P830    -007EB
  1453.     GOSUBL    P630    -00965
  1454.     GOSUBL    P820    -007FE
  1455.     GOSUBL    P630    -00971
  1456.     GOSUBL    P590    -0099C
  1457.     C=A    S
  1458.     GOSUB    P1070    -00724
  1459.     GOSUBL    P880    -007D9
  1460.     ?C=0    S
  1461.     GOYES    P1810    +00006
  1462.     GOSUB    P1820    +00046
  1463. P1810    GOSUB    P1640    -003C7
  1464.     GOSUBL    P830    -00823
  1465.     GOSUBL    P980    -00795
  1466.     GOSUBL    P890    -007E8
  1467.     GOSUB    P1670    -0037A
  1468.     GOSUBL    P990    -00799
  1469.     GOSUBL    P860    -00818
  1470.     GOSUB    P1030    -00780
  1471.     GOSUBL    P890    -00802
  1472.     GOSUBL    P840    -00847
  1473.     GOSUB    P1670    -0039A
  1474.     GOSUBL    P980    -007C5
  1475.     GOLONG    P860    -00834
  1476. P1820    A=-A-1    S
  1477.     C=R0
  1478.     C=-C-1    S
  1479.     R0=C
  1480.     RTN
  1481. P1830    GOSUBL    P540    -00A2F
  1482.     GOSUBL    P820    -00880
  1483.     GOSUB    P1210    -00704
  1484.     GOSUB    P1860    +0005E
  1485.     ?B#0    W
  1486.     GOYES    P1840    +00006
  1487.     GOTO    P1680    -003A3
  1488. P1840    GOSUBL    P580    -00A30
  1489.     C=0    S
  1490.     GOSUBL    P600    -00A2E
  1491.     GOSUBL    P670    -009F5
  1492.     GOSUB    P1900    +0005D
  1493.     GOSUB    P1680    -003C3
  1494.     GOSUBL    P660    -00A0A
  1495.     D0=D0-    16
  1496.     D0=D0-    5
  1497.     GOSUB    P1190    -0076C
  1498.     GOSUBL    P520    -00A9C
  1499.     GOSUBL    P650    -00A27
  1500.     C=R2
  1501.     ?C=0    S
  1502.     GOYES    P1850    +00010
  1503.     C=R0
  1504.     C=A    S
  1505.     R0=C
  1506.     A=0    S
  1507.     RTN
  1508. P1850    GOLONG    P820    -008E2
  1509. P1860    P=    14
  1510.     C=R1
  1511.     ?C#0    WP
  1512.     GOYES    P1880    +00007
  1513. P1870    A=0    S
  1514.     RTN
  1515. P1880    ?B#0    WP
  1516.     GOYES    P1890    +0000B
  1517.     GOSUBL    P550    -00AAE
  1518.     GONC    P1870    -00011
  1519. P1890    GOSUB    P1910    +00007
  1520. P1900    GOVLNG    #2BA0F
  1521. P1910    GOSUBL    P640    -00A79
  1522.     GOSUBL    P820    -0091A
  1523.     GOSUBL    P640    -00A85
  1524.     GOLONG    P590    -00AB4
  1525. P1920    LCHEX    19
  1526.     B=0    W
  1527. P1930    B=B+B    W
  1528.     SETHEX
  1529.     A=A+A    A
  1530.     SETDEC
  1531.     GONC    P1940    +00005
  1532.     B=B+1    W
  1533. P1940    C=C-1    B
  1534.     GONC    P1930    -00013
  1535.     P=    5
  1536.     A=A-1    X
  1537. P1950    A=A+1    X
  1538.     BSRC
  1539.     ?B#0    WP
  1540.     GOYES    P1950    -00009
  1541.     BSR    W
  1542.     A=B    M
  1543.     A=0    S
  1544.     RTN
  1545. ENDCODE
  1546.  ;
  1547. ;
  1548.